Warning in instance$preRenderHook(instance): It seems your data is too big for
client-side DataTables. You may consider server-side processing:
https://rstudio.github.io/DT/server.html
Column
Cases
# Check that pie_data has valid totals:if (nrow(pie_data) ==0||sum(pie_data$Count, na.rm =TRUE) ==0) {cat("No data available for the distribution chart on the latest date.")} else { p_bar <-ggplot(pie_data, aes(x =reorder(Category, -Count), y = Count, fill = Category)) +geom_bar(stat ="identity") +labs(title =paste("Distribution on", latest_date),x ="Category",y ="Count") +theme_minimal() +theme(legend.position ="none") plotly::ggplotly(p_bar)}